home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Examples / Visualizer ideas / 2d Modulator next >
Text File  |  1998-08-01  |  17KB  |  42 lines
  1.  
  2. 26411442 
  3. 3342486 
  4. ("Geneva" 9 :srcor :plain (:color-index 0)) 
  5. (4128832 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194369 4194369 4194369 4194370 4194370 4194370 4194371 4194371 4194372 4194372 4194372 4194373 4194373 4194373 4194373 4194373 4128837 4128836 4128836 4128835 4128835 4128834 4128833 4128832 4128832 4194367 4194366 4194365 4194365 4259900 4259900 4259899 4325435 4325435 4325435 4325435 4325436 4325436 4325436 4325437 4259901 4259902 4259902 4194367 4194367 4194367 4194367 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4063294 4063293 3997756 3997754 3932216 3866677 3801138 3801135 3735595 3670055 3670051 3670046 3670042 3670037 3670033 3735564 3801097 3866629 3932163 4063233 4128768 4259840 4390913 4456450 4521989 4587528 4653068 4718608 4718613 4718619 4718624 4653093 4587562 4522031 4456499 4390967 4325434 4259901 4194367 4128832 4063297 4063298 4063298 4063297 4063297 4128832 4194367 4259902 4325438 4390973 4390973 4456508 4522044 4522044 4522045 4522045 4522045 4522046 4456510 4390975 4325439 4259903 4194367 4128831 4063295 4063295 3997759 3932223 3932223 3932222 3932222 3932222 3997758 3997758 4063294 4063294 4128831 4128831 4128831 4194368 4194368 4194368 4194369 4194369 4194369 4194369 4194369 4194369 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128830 4194366 4194366 4194366 4194366 4194367 4194367 4128832 4128833 4128835 4063301 3997768 3932234 3866701 3735633 3604564 3473495 3342427 3145821 2949216 2818146 2621540 2490469 2359397 2228325 2097251 2031714 2031712 2031709 2097242 2228310 2359379 2490448 2687052 2883657 3080263 3276869 3473475 3670081 3866689 3997760 4063296 4128832 4128832 4128831 4063295 3997759 3866687 3735614 3604541 3473467 3342394 3211320 3145782 3080245 3014707 3014706 3014705 3080241 3211313 3276849 3407923 3538996 3735606 3866681 3997756 4128831 4259906 4325444 4390983 4456521 4456522 4456523 4390987 4390986 4325449 4325448 4259910 4194371 4194369 4128830 4128828 4128826 4128825 4128824 4128823 4194359 4194360 4194361 4194362 4194363 4194365 4194366 4194367 4194367 4194367 4194366 4194364 4259898 4390966 4522034 4653101 4915240 5111842 5439516 5701655 6029329 6422541 6750217 7077894 7405573 7733252 7929861 8126471 8257545 8323085 8323090 8192023 8060956 7798818 7471144 7143469 6750258 6357046 5898297 5439548 5046334 4653119 4259903 3932223 3670079 3473470 3342397 3211324 3145787 3211322 3211321 3276857 3407929 3539001 3670074 3735611 3866684 3997757 4063294 4128831 4194368 4194369 4259905 4259905 4194369 4194368 4194368 4128831 4128831 4128830 4128830 4128830 4128830 4128831 4194368 4194370 4259908 4259910 4259913 4259915 4259918 4259921 4259924 4259926 4194392 4128858 4128859 4063323 3997787 3997787 3932250 3932249 3866711 3866709 3866706 3866704 3866702 3932235 3932233 3997767 3997765 4063300 4063299 4063298 4128833 4128832 4128832 4128832 4128832 4128832 4128832 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4259903 4259903 4194367 4194367 4194367 4194367 4128831 4128831 4128831 4063295 4063295 4063295 4063295 4063295 4063295 4063295 4063295 4128831 4194368 4194368 4259905 4325442 4390979 4390980 4456517 4456518 4522055 4522055 4522056 4522056 4456520 4456520 4390984 4390983 4325446 4325445 4259908 4194371 4194369 4194368 4128831 4128831 4128830 4128831 4128831 4194368 4194370 4194371 4194374 4128840 4128843 4128845 4063312 3997779 3932245 3866711 3801177 3735643 3670108 3670108 3604572 3539035 3473498 3473497 3473495 3473493 3473491 3539025 3539023 3604557 3670091 3735625 3735623 3801157 3866692 3932227 3997762 3997761 4063297 4063296 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4259904 4259905 4325441 4325442 4390979 4456516 4522053 4587591 4587593 4653131 4718669 4784207 4784209 4849747 4849749 4849751 4849753 4849754 4784219 4718684 4653148 4653148 4587611 4522073 4456535 4390997 4325459 4259920 4194381 4194379 4194376 4128838 4128835 4128834 4128832 4194367 4194367 4194366 4194367 4194367 4128832 4128833 4128835 4063300 3997765 3997766 3932231 3932232 3866696 3866696 3801160 3801160 3801159 3801159 3866694 3866693 3932228 3932227 3997762 4063297 4128832 4128832 4194367 4259903 4259903 4259903 4259903 4259903 4259903 4259903 4259903 4194367 4194367 4194367 4128831 4128831 4128831 4128831 4063295 4063295 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4194368 4194368 4194368 4194368 4194368 4194368 4194369 4259906 4259907 4259908 4325445 4325447 4390985 4390987 4456526 4456528 4456530 4456533 4456535 4391001 4391002 4325467 4325467 4259931 4194395 4128858 4128856 4063318 4063316 4063313 4063310 4063307 4063305 4063302 4063300 4128834 4128832 4194367 4194366 4194366 4194366 4194366 4194367 4194367 4128832 4128832 4128833 4063297 4063297 4128833 4128832 4194367 4259902 4325437 4456508 4587579 4653114 4784185 4915257 5046329 5111865 5111866 5177403 5111868 4980797 4849726 4653119 4390975 4063295 3670079 3276862 2883644 2424889 1966134 1572914 1179693 852008 524322 262172 131095 18 13 65545 196615 393221 589828 917509 1245190 1572873 1900557 2293777 2621463 2883612 3211298 3407912 3670061 3801138 3932214 4063290 4128828 4128830 4128831 4128831 4128831 4128830 4128829 4128827 4128826 4128825 4128824 4128823 4194359 4194360 4194361 4194362 4194364 4194366 4128833 4128835 4063302 3997768 3997769 3932234 3932235 3866699 3866698 3866697 3932231 3997764 4063298 4194367 4325436 4456505 4587574 4784180 4915251 5046321 5111857 5242929 5308465 5308466 5308467 5242933 5177398 5111864 4980794 4849723 4718653 4587582 4456511 4325439 4259903 4194367 4128832 4194368 4259904 4325440 4456513 4653121 4849731 5046341 5242951 5439561 5636172 5832784 5963859 6094934 6226010 6291549 6291552 6291554 6226019 6094949 5963877 5832805 5701732 5505122 5374048 5177437 4980827 4849751 4718676 4587601 4456525 4390986 4325448 4259909 4194371 4194369 4194368 4128831 4128831 4128830 4128830 4128830 4128830 4194366 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128833 4128833 4128833 4128833 4128833 4128833 4128832 4128832 4128832 4194367 4194367 4194367 4259902 4259902 4325438 4325438 4390974 4390974 4390974 4390975 4390975 4325439 4259903 4259903 4194367 4128831 4063295 3997759 3932223 3866686 3801150 3801149 3801149 3801149 3801148 3801148 3866684 3932221 3932221 3997758 4063294 4128831 4194368 4259905 4259905 4259906 4259906 4259905 4194368 4128831 4063293 3997754 3932215 3866675 3801135 3735594 3670053 3604512 3604507 3604501 3604496 3670028 3735560 3801093 3866626 3932161 4063232 4128768 4259841 4390915 4456453 4521993 4587532 4653073 4653077 4653082 4653086 4653091 4653095 4587563 4522031 4522034 4456501 4390968 4325434 4325436 4259901 4259902 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4128831 4128831 4128831 4128831 4063294 4063294 4063293 3997757 3997756 3997756 3997756 3997755 3997755 3997755 3997755 4063291 4063292 4063292 4128829 4128829 4128830 4128831 4194368 4194368 4194369 4194370 4194371 4194371 4194372 4194372 4194373 4128837 4128837 4128837 4128837 4128837 4128836 4128836 4128836 4128835 4128835 4128834 4128834 4128834 4128833 4128833 4128833 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128830 4128830 4128830 4128829 4128829 4128829 4128828 4128828 4128827 4128827 4128827 4128826 4128826 4128826 4128826 4128826 4194362 4194363 4194363 4194364 4194364 4194365 4194366 4194367 4194367 4128832 4128833 4128834 4128834 4063299 4063299 4063300 3997764 3997764 3997764 3997764 3997763 3997763 3997763 3997762 4063298 4063297 4063297 4128832 4128832 4128832 4128832 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4259905 4259906 4325443 4325445 4390983 4456522 4522061 4522064 4587604 4653144 4653148 4653153 4653157 4653162 4653166 4587635 4522102 4456570 4391036 4259966 4128895 4063359 3932286 3866749 3801210 3735671 3670131 3604591 3604586 3604580 3604575 3670106 3735637 3801168 3866700 3932232 3997765 4063298 4128832 4194367 4259902 4259901 4259901 4259902 4259902 4194367 4128832 4063297 3997761 3932226 3932226 3866691 3801155 3801155 3801154 3801154 3801154 3801153 3866689 3932224 3997760 4063296 4128832 4194368 4259904 4259904 4325440 4390976 4390976 4390977 4390977 4390977 4325441 4325441 4259905 4259905 4194368 4194368 4194368 4128831 4128831 4128831 4128830 4128830 4128830 4128830 4128830 4128830 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194369 4128833 4128833 4128833 4128833 4128832 4128832 4194367 4194366 4194364 4259898 4325431 4390965 4456498 4587566 4718635 4849704 4980772 5177378 5373983 5505053 5701659 5832730 5963802 6094874 6225948 6291485 6291487 6291490 6225957 6094889 5963820 5832751 5636147 5439542 5242936 5046330 4849724 4653118 4456510 4325439 4259903 4194367 4128832 4194368 4259904 4325440 4456512 4587585 4718658 4849732 4980805 5111879 5177417 5242954 5308492 5308493 5308494 5242958 5111886 5046350 4915276 4784203 4587593 4456518 4325443 4194368 4063293 3997755 3932216 3866678 3866677 3866676 3932212 3932213 3997750 3997751 4063289 4128828 4128830 4194369 4194371 4194373 4194374 4194375 4194376 4128840 4128839 4128838 4128837 4128836 4128834 4128833 4128832 4128832 4128832 4128833 4128835 4063301 3932233 3801165 3670098 3407959 3211357 2883683 2621544 2293870 1900658 1572982 1245305 917626 589947 393338 196728 65654 114 109 131176 262243 524381 852055 1179730 1572941 1966153 2424902 2883651 3276865 3670080 4063296 4390976 4653120 4849729 4980802 5111875 5177412 5111877 5111878 5046342 4915270 4784198 4653125 4587588 4456515 4325442 4259905 4194368 4128831 4128830 4063294 4063294 4128830 4128831 4128831 4194368 4194368 4194369 4194369 4194369 4194369 4194368 4128831 4128829 4063291 4063289 4063286 4063284 4063281 4063278 4063275 4063273 4128807 4128805 4194340 4259876 4325412 4325412 4390949 4390950 4456488 4456490 4456493 4456495 4456497 4390964 4390966 4325432 4325434 4259899 4259900 4259901 4194366 4194367 4194367 4194367 4194367 4194367 4194367 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4063296 4063296 4128832 4128832 4128832 4128832 4194368 4194368 4194368 4259904 4259904 4259904 4259904 4259904 4259904 4259904 4259904 4194368 4128831 4128831 4063294 3997757 3932220 3932219 3866682 3866681 3801144 3801144 3801143 3801143 3866679 3866679 3932215 3932216 3997753 3997754 4063291 4128828 4128830 4128831 4194368 4194368 4194369 4194368 4194368 4128831 4128829 4128828 4128825 4194359 4194356 4194354 4259887 4325420 4390954 4456488 4522022 4587556 4653091 4653091 4718627 4784164 4849701 4849702 4849704 4849706 4849708 4784174 4784176 4718642 4653108 4587574 4587576 4522042 4456507 4390972 4325437 4325438 4259902 4259903 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4128832 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4063295 4063294 3997758 3997757 3932220 3866683 3801146 3735608 3735606 3670068 3604530 3538992 3538990 3473452 3473450 3473448 3473446 3473445 3538980 3604515 3670051 3670051 3735588 3801126 3866664 3932202 3997740 4063279 4128818 4128820 4128823 4194361 4194364 4194365 4194367 4128832 4128832 4128833 4128832 4128832 4194367 4194366 4194364 4259899 4325434 4325433 4390968 4390967 4456503 4456503 4522039 4522039 4522040 4522040 4456505 4456506 4390971 4390972 4325437 4259902 4194367 4194367 4128832 4063296 4063296 4063296 4063296 4063296 4063296 4063296 4063296 4128832 4128832 4128832 4194368 4194368 4194368 4194368 4259904 4259904 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4194368 4128831 4128831 4128831 4128831 4128831 4128831 4128830 4063293 4063292 4063291 3997754 3997752 3932214 3932212 3866673 3866671 3866669 3866666 3866664 3932198 3932197 3997732 3997732 4063268 4128804 4128805 4194343 4259881 4259883 4259886 4259889 4259892 4259894 4259897 4259899 4194365 4194367 4128832 4128833 4128833 4128833 4128833 4128832 4128832 4194367 4194367 4194366 4259902 4259902 4194366 4194367 4128832 4063297 3997762 3866691 3735620 3670085 3539014 3407942 3276870 3211334 3211333 3145796 3211331 3342402 3473473 3670080 3932224 4259904 4653120 5046337 5439555 5898310 6357065 6750285 7143506 7471191 7798877 8061027 8192104 8323181 8323186 8257654 8126584 7929978 7733371 7405690 7078009 6750326 6422642 6029422 5701736 5439587 5111901 4915287 4653138 4522061 4390985 4259909 4194371 4194369 4194368 4194368 4194368 4194369 4194370 4194372 4194373 4194374 4194375 4194376 4128840 4128839 4128838 4128837 4128835 4128833 4194366 4194364 4259897 4325431 4325430 4390965 4390964 4456500 4456501 4456502 4390968 4325435 4259901 4128832 3997763 3866694 3735625 3539019 3407948 3276878 3211342 3080270 3014734 3014733 3014732 3080266 3145801 3211335 3342405 3473476 3604546 3735617 3866688 3997760 4063296 4128832 4128832 4128831 4063295 3997759 3866686 3670078 3473468 3276858 3080248 2883638 2687027 2490415 2359340 2228265 2097189 2031650 2031647 2031645 2097180 2228250 2359322 2490394 2621467 2818077 2949151 3145762 3342372 3473448 3604523 3735598 3866674 3932213 3997751 4063290 4128828 4128830 4128831 4194368 4194368 4194369 4194369 4194369 4194369 4128833 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194366 4194366 4194366 4194366 4194366 4194366 4194367 4194367 4194367 4128832 4128832 4128832 4063297 4063297 3997761 3997761 3932225 3932225 3932225 3932224 3932224 3997760 4063296 4063296 4128832 4194368 4259904 4325440 4390976 4456513 4522049 4522050 4522050 4522050 4522051 4522051 4456515 4390978 4390978 4325441 4259905 4194368 4128831 4063294 4063294 4063293 4063293 4063294 4128831 4194368 4259906 4325445 4390984 4456524 4522064 4587605 4653146 4718687 4718692 4718698 4718703 4653171 4587639 4522106 4456573 4391038 4259967 4128895 4063358 3932284 3866746 3801206 3735667 3670126 3670122 3670117 3670113 3670108 3670104 3735636 3801168 3801165 3866698 3932231 3997765 3997763 4063298 4063297 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4128832 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4128831 4194368 4194368 4194368 4194368 4259905 4259905 4259906 4325442 4325443 4325443 4325443 4325444 4325444 4325444 4325444 4259908 4259907 4259907 4194370 4194370 4194369 4194368 4128831 4128831 4128830 4128829 4128828 4128828 4128827 4128827 4128826 4194362 4194362 4194362 4194362 4194362 4194363 4194363 4194363 4194364 4194364 4194365 4194365 4194365 4194366 4194366 4194366 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367 4194367) 
  6. "(setq mater (vector-round 1 20 (gen-noise-white 10)))
  7. ; #(2 19 1 9 7 6 6 16 19 20) 
  8. (setq freq (aref mater 1))
  9. (setq samples 2048)
  10. (setq modulator 
  11.       (vector-modulate
  12.        (vector-modulate
  13.         (vector-modulate (gen-sin (aref mater 2) 0.4 samples)
  14.                          (gen-sin (aref mater 3) 0.3 samples 0))
  15.         (vector-modulate (gen-sin (aref mater 4) 0.4 samples)
  16.                          (gen-sin (aref mater 5) 0.3 samples 0)))
  17.        (vector-modulate
  18.         (vector-modulate (gen-sin (aref mater 6) 0.4 samples)
  19.                          (gen-sin (aref mater 7) 0.3 samples 0))
  20.         (vector-modulate (gen-sin (aref mater 8) 0.4 samples)
  21.                          (gen-sin (aref mater 9) 0.3 samples 0)))))
  22. (vector-round 0 127 
  23.     (vector-modulate (gen-sin freq 0.5 samples)
  24.                     modulator))
  25. (vector-round 0 127 
  26.     (vector-modulate (gen-sin freq 0.5 samples 90)
  27.                      modulator))
  28. " 
  29. 110 
  30. 0 
  31. nil 
  32. nil 
  33. nil 
  34. 29360128 
  35. 29360128 
  36. nil 
  37. nil 
  38. 16 
  39. 10 
  40. 2 
  41. 6 
  42. 5